﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%

IF  Request.QueryString("Action")="save" Then
	call savea
else
	call index
end if
end Function
Function index
	dim id,urls
    		id = Request.QueryString("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		If id < 0 Then id = 1
                urls=Request.QueryString("urls") 
if sid="Null" then
	Response.Redirect "/login.asp?sid="&sidd&"&url="&urls
	Response.end
end if
select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
%>
<card title="设置阅读字数"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>设置阅读字数</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
if v=1 then Response.Write (""&we&"<form action=""zweid.asp?Action=save&amp;urls="&urls&"&amp;sid="&sidd&""" method=""post"">")
%>		
	<%=we%>设置阅读字数(输入字数最小不能低于200):<%=we0%>
	<input emptyok="true"  name="name" maxlength="50" value="1000" type="text"/><br/>
<%
if v=1 then
        Response.Write ("<input type=""submit"" value=""确定提交"" /></form><br/>")
else%>
	<anchor>确定提交
    	<go href="zweid.asp?Action=save&amp;urls=<%=urls%>&amp;id=<%=id%>&amp;sid=<%=sidd%>" method='post'>
        <postfield name="name" value="$(name)"/>
    	</go>
	</anchor><br/>
<%end if%>
<%=sou%><a href='<%=qingtian.backurl(urls)%>'>返回来源页</a><%=we0%>

<%
end Function 


Function savea
	dim id,urls,rs,sql,name
    		id = Request.QueryString("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		name = Request.form("name")    
    		If name = "" Then name = 500
   		If Not IsNumeric(name) Then name = 500
    		name = CLng(name)
    		If name < 200 Then name = 500
                urls=Request.QueryString("urls") 
if sid="Null" then
	Response.Redirect "/login.asp?sid="&sidd&"&url="&urls
	Response.end
end if

select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
%>
<card title="设置阅读字数"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>设置阅读字数</title><%=we%>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select

		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select weid FROM qingtian_user where sid= '"&qingtian.Formatsid(sid)&"'"
		rs.open sql,conn,1,3
			rs("weid")=name
		rs.update()
		rs.Close
		Set rs = Nothing
	%>
<%=we%>设置阅读字数成功!<br/>
<a href='<%=qingtian.backurl(urls)%>'>返回来源页</a><%=we0%>
   <%
end Function
%>
